home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / WATRBILL.SAB < prev    next >
Text File  |  1991-10-05  |  3KB  |  90 lines
  1. set messages off
  2. set error messages off
  3. set escape off
  4. set bell off
  5. label begin
  6. set v percen to ""
  7. cls
  8. DISPLAY CP.DIS
  9. WRITE "WATRBILL.SAB" AT 2,36
  10. label tst
  11. set v y/n to ""
  12. fillin y/n using "Run Test Set-Up Of Statement Forms (Y/N)? " at 11,16
  13. if y/n = "n" then ; goto start ; endif
  14.   out pri
  15.   print not.tst where limit = 1
  16.   out scr
  17. write "                                                         " at 11,16
  18. goto tst
  19. label start
  20. cls
  21. display cp.dis
  22. write "WATRBILL.SAB" AT 2,36
  23. write "Water Billing & Accounting" at 6,27
  24. set v amt to 0
  25. set v amt currency
  26. set v thru text
  27. set v code to ""
  28. fillin code using "Enter ENTIRE Add.Code For Billing   or  <ESC>  " at 10,5
  29.   if code = "" then ; GOTO STOP ; ENDIF
  30. set v percen to ""
  31. set v inc to ""
  32. set v percen to waterpc in cur.mast where add.code = .code
  33. set v inc to includes in cur.mast where add.code = .code
  34. set v addr to ""
  35. set v addr to address in cur.mast where add.code = .code
  36. write "Address For Water Billing    : " at 12,5
  37. write .addr at 12,38
  38. write "Rent At This Address Includes: " at 13,5
  39. write .inc at 13,38
  40. write "Water Percentage To Be Billed: " at 14,5
  41. write .percen at 14,38
  42. write "%" at 14,41
  43. write "Enter Water Bill Amount For This Quarter (or '0').. " at 16,5
  44. fillin amt using "-> " at 16,59
  45.   if amt = 0 then
  46.     goto start
  47.   endif
  48. set v yd currency
  49. set v yd to tot.due in cur.mast where add.code = .code
  50. set v balwat currency
  51. set v balwat to 0
  52. set v balwat to bal.wate in cur.mast where add.code = .code
  53. set v tbill currency
  54. set v tbill to 0
  55. set v tbill to (.balwat + .amt)
  56. write "Previous Water Due : " at 19,5
  57. write .balwat at 19,28
  58. write "This Billing...... : " at 20,5
  59. write .amt at 20,28
  60. write "Total Water Now Due: " at 21,5
  61. write .tbill at 21,28
  62.   append cur.mast to water where add.code = .code
  63.     change rent.pd to 0 in water where add.code exists
  64.     change past.pd to 0 in water where add.code exists
  65.     change other.pd to 0 in water where add.code exists
  66.     change wat.paid to 0 in water where add.code exists
  67.     change sec.pd to 0 in water where add.code exists
  68.     change other.ch to 0 in water where add.code exists
  69.     change water.ch to .amt in water where add.code exists
  70.     change cach to "Charge" in water where add.code exists
  71.     change notes to "Current Water Billing" in water where add.code exists
  72.     change date to .#date in water where add.code exists
  73.     change yet.due to (.yd + .amt) in water whe add.code exists
  74. label pas
  75.       output printer
  76.       print water where add.code exists
  77.       output screen
  78.       change yet.due to (.yd + .amt) in water where add.code exists
  79.       append water to transact where add.code exists
  80.       run watrpost.sab
  81.       delete rows from water where add.code exists
  82.         goto start
  83. label STOP
  84.   cls
  85.   set messages on
  86.   set error messages on
  87.   set bell on
  88.   return
  89.  
  90.